home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xm / message-box.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-22  |  1.2 KB  |  36 lines
  1. #include "../xt/xt.h"
  2. #include <Xm/Xm.h>
  3. #include <Xm/MessageB.h>
  4.  
  5. static SYMDESCR Type_Syms[] = {
  6.    { "dialog-error",        XmDIALOG_ERROR },
  7.    { "dialog-information",  XmDIALOG_INFORMATION },
  8.    { "dialog-message",      XmDIALOG_MESSAGE },
  9.    { "dialog-question",     XmDIALOG_QUESTION },
  10.    { "dialog-warning",      XmDIALOG_WARNING },
  11.    { "dialog-working",      XmDIALOG_WORKING },
  12.    { 0, 0}
  13. };
  14.  
  15. static XtArgVal C_Message_Box_DialogType (x) Object x; {
  16.    return (XtArgVal)Symbols_To_Bits (x, 0, Type_Syms);
  17. }
  18.  
  19. static Object S_Message_Box_CancelCallback (x) XtArgVal x; {
  20.    return Get_Any_CB ((XmAnyCallbackStruct *)x);
  21. }
  22.  
  23. static Object S_Message_Box_OkCallback (x) XtArgVal x; {
  24.    return Get_Any_CB ((XmAnyCallbackStruct *)x);
  25. }
  26.  
  27. init_messagebox () {
  28.     XtResourceList r = 0;
  29.     Define_Class ("message-box", xmMessageBoxWidgetClass, r, 0);
  30.     Define_Callback ("message-box", "okCallback", 1);
  31.     Define_Callback ("message-box", "cancelCallback", 1);
  32.     Define_Converter_To_Scheme ("message-box-okCallback", S_Message_Box_OkCallback);
  33.     Define_Converter_To_Scheme ("message-box-cancelCallback", S_Message_Box_CancelCallback);
  34.     Define_Converter_To_C ("message-box-dialogType", C_Message_Box_DialogType);
  35. }
  36.